dhdomega Function

public function dhdomega(rho, theta, yn1, yn2) result(znak)

вычисляет znakstart !!! w*dH/dw=wdhdw:

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	rho
real(kind=wp),	intent(in)			::	theta
real(kind=wp),	intent(inout)			::	yn1
real(kind=wp),	intent(in)			::	yn2

Return Value real(kind=wp)